home *** CD-ROM | disk | FTP | other *** search
/ SGI Hot Mix 17 / Hot Mix 17.iso / HM17_SGI / research / lib / idlinfo.pro < prev    next >
Text File  |  1997-07-08  |  877b  |  54 lines
  1. ; $Id: idlinfo.pro,v 1.1 1997/04/17 20:58:25 ali Exp $
  2. ;
  3. ; Copyright (c) 1997, Research Systems, Inc.  All rights reserved.
  4. ;    Unauthorized reproduction prohibited.
  5. ;
  6.  
  7. ;+NODOCUMENT
  8. ; NAME:
  9. ;       IDLINFO
  10. ;
  11. ; PURPOSE:
  12. ;    Print contact information for Research Systems and offer other
  13. ;    basic information on using or demoing IDL.
  14. ;
  15. ; CALLING SEQUENCE:
  16. ;
  17. ;    IDLINFO
  18. ;
  19. ; INPUTS:
  20. ;    None.
  21. ;
  22. ; KEYWORDS:
  23. ;    None.
  24. ;
  25. ; OUTPUT:
  26. ;    Basic information is printed.
  27. ;
  28. ; COMMON BLOCKS:
  29. ;       NONE.
  30. ;
  31. ; SIDE EFFECTS:
  32. ;       None.
  33. ;
  34. ; RESTRICTIONS:
  35. ;    None.
  36. ;
  37. ; MODIFICATION HISTORY:
  38. ;       Written, DMS, RSI, 17 April 1997
  39. ;           
  40. ;-
  41.  
  42. pro IDLInfo
  43.   FileName = filepath('idlinfo.txt', SUBDIR=['help','motd'])
  44.   openr, Lun, Filename, Error=err, /GET_LUN
  45.   if err lt 0 then return
  46.  
  47.   line = ''
  48.   while not eof(Lun) do begin
  49.     readf, lun, line
  50.     print, line
  51.   endwhile
  52.   free_lun, lun
  53. end
  54.